# Basta mudar o nome
#1) Basta utilizar o comando setwd(), colocando entre parnteses o endereo do diretrio no computador, como exemplificado abaixo
setwd("C:/Users/Maurcio/Documents/aula1")
#2) Somente este comando no restituiu o workspace.  necessrio utilizar o comando load(), colocando entre parnteses o arquivo ".rdata" que deseja, como abaixo.
load("tutorial1.rdata")
#
#
# Um comando perigoso!
#1) Para apagar todos os objetos do workspace  necessrio executar o comando
rm(list=ls())
#2) No h um comando especfico para evitar a perda de todos os objetos removidos. Mas essa situao pode ser evitada caso voc possua o script salvo com todos os passos em um arquivo ".r". Basta repetir os comandos anteriores ao comando que voc executou equivocadamente (ou seja, o comando citado no item anterior).
#
#
# Remoo com critrio
#1) O arquivo foi salvo no workspace. Para carreg-lo bastou usar o comando
load("bichos.rdata")
#2)Para remover os objetos cujos nomes comeam com "temp"  necessrio utilizar o comando
rm(list=ls(pattern="temp"))
#
#
# Classes de objetos
#1) Digitando o objeto "letters" descobrimos que ele contem o conjunto do alfabeto romano em caixa baixa e o objeto "LETTERS" o conjunto do alfabeto romano em caixa alta.
letters
LETTERS
#2) Descobrimos que ambos os objetos pertencem a classe "character". Para isso bastou usar os comandos abaixo
class(letters)
class(LETTERS)
#3) Para mud-los para a classe "fator" basta usar os comandos de coero
letters <- as.factor(letters)
LETTERS <- as.factor(LETTERS)
#
#
# Objetos de data
#1) A classe do objeto "hoje"  "Date"
hoje <- Sys.Date() 
hoje
class(hoje)
#2)O Brail foi tricampeo em 21/06/1970. Mas como foi recomendado ver no tutorial de "Classes de objeto e coero" foi adotada a data encontrada l que era 21/07/1970.
# A partir da criei o objeto "tricopa", que representa a data em que o Brasil foi tricampeo
tricopa <- "1970/07/21"
# Verificamos ento a classe de tricopa
class(tricopa)
# Trata-se ento de um objeto da classe "character". Precisamos ento alter-lo para a classe "Date". Para isso executamos o comando
tricopa <- as.Date(tricopa)
# Agora podemos saber a diferena de dias usando
hoje - tricopa
#3) Para saber a data daqui a 43 dias basta realizar uma soma simples e teremos o resultado
hoje + 43